Patrick GREUSSAY 

U.E.R. Informatique-Lingulstique 
UNIVERSITE de PARIS 8 

RI 16-76 


Janvier 1976 


LL :] 


VLISP : Structure et extensions d'un 


ss id 


systéme LISP pour mini-ordinateurs 


ee eee cee ee ee er ee er pus. eet ee ee Ta ep pp di 


Résumé : 
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Nous décrivons la structure d'un systéme LISP : VLISP, conçu spéci- 
fiquement pour être implémenté sur.mini-ordinateurs. Nous en défi- 
nissons en détail le noyau : interpréte et extensions, en utilisant 
le mode de description par filtrage, ce qui nous permet de ne pas 
faire dépendre la description d'un mini-ordinateur particulier, tout 
en permettant d'éviter l'introduction d'une syntaxe abstraite. 


Nous introduisons une fonction de contrôle inédite en LISP, dont la 
puissance nous permet de réaliser avec succès un compromis entre la 
nécessité d'obtenir un système LISP utilisable, et les restrictions, 
en particulier en taille mémoire disponible, liées à l'emploi des 
mini-ordinateurs. 
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] INTRODUCTION 


Une des caractéristiques principales du langage LISP est la circularité de 
la définition de ses interprétes (Mc CARTHY 1960a, 1960b, 1962). Toutefois les 
interprètes publiés du LISP pur, ainsi décrits en LISP pur ont l'inconvénient 
de ne pas donner des indications précises sur le mode d'implémentation de LISP 
dans un langage de plus bas niveau (1), et de ne pas refléter 1'évolution du 
langage, tel qu'il est effectivement utilisé dans les études d'Intelligence 
Artificielle. 


Cette évolution s'est traduite par l'extension de la finition de nombreuses 
fonctions LISP importantes, par le souci d'efficience de l'interprétation, en 
particulier en ce qui concerne l'accès aux variables, enfin par l'abandon de 
plusieurs constructions du LISP original, en particulier les expressions LABEL 
et les objets FUNARG (MOSES 1970, SANDEWALL 1970), qui, quoique d'un grand 
intérêt théorique (NEWEY 1975, GORDON 1973, 1975), n'étaient pratiquement 
jamais utilisées en raison de leurs limitations (2). 


Ainsi les principaux systèmes LISP actuels : MACLISP (WHITE 1970, MOON 1975), 
INTERLISP (TEITELMAN 1974, HARALDSON 1975), et LISP 1.6 (QUAM 1973), se révè- 
lent trés différents, tant dans leur usage que dans leur définition, du LISP 
pur original, aussi bien que du LISP 1,5 de 1962. Ces systèmes nécessitent pour 
leur implémentation des configurations très importantes qui en interdisent pra- 
tiquement la transposition sur mini-ordinateurs. 


L'implémentation de LISP sur mini-ordinateurs pose alors le probléme de trouver 
un compromis acceptable entre 


(1) la puissance du systéme : la plupart des utilisations de LISP, hautement 
expérimentales, nécessitent des modifications extremement fréquentes des 
s programmes interprétés. Certaines parties pourront demeurer relativement 
stables et seront naturellement compilées. Reste que la stabilité d'un 
ensemble de fonctions n'étant pas prévisible à l'avance, exige de l'uti- 
lisateur d'employer LISP avec de nombreuses précautions restrictives. 
Ces restrictions de langage, en particulier l'emploi massif de fonctions 
de type PROG (LUX 1975) ont pour conséquence un extrême encombrement de 
la mémoire disponible (LISP 1.6 n'autorise pratiquement que ce style de 
programmation, de “type-FORTRAN"). La compilation des fonctions LISP est, 
malgré son élégance apparente, un processus très lourd, De surcroît, il 
se révèle que sur mini-ordinateurs, les fonctions compilées sont d'un 
encombrement équivalent, sinon supérieur 4 celui des fonctions interpré- 
tées, et nécessitent de toutes manières de fréquents appels 4 l'inter- 
préte. La situation est exactement inverse dans les systèmes LISP implé- 
mentés sur des configurations importantes. Ainsi le très grand nombre de 
fonctions de faible puissance faciles á compiler des grands systémes LISP, 
devra €tre remplacé sur mini-ordinateurs par un petit nombre de fonctions 
puissantes. 


(1) á l'exception de l'implémentation sur PDP 1 d'une version extrément réduite de 
LISP 1.5 (DEUTSCH 1964). 


(2) les objets FUNARG ne donnent pas accés à la structure de contrôle, i.e. ne 
comprennent pas de continuations (cf. $3.3) ; les formes LABEL ne permettent 


pas la définition simultanée de fonctions récursives. 
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(2) les possibiiités d'utilisation effective : les systémes LISP pour 
mini-ordinateurs doivent comprendre des fonctions interprétées trés 
puissantes. Fonettons de contrôle : expressions conditionnelles 
étendues, sélection par cas, fonctions de sortie avec restitutions 
instantanées de contextes, itérations structurées ; fonctions de 
données : filtrage de listes par position ainsi que filtrage par 
contenu. Ces fonctions permettent ainsi une implémentation aisée et 
compacte des extensions actuelles de LISP, en particulier de type 
PLANNER (HEWITT 1975) et CONNIVER (Mc DERMOTT 1974), extensions qui 
sont devenues à présent indispensables aux études d'Intelligence 
Artificielle. 


Nous nous proposons de décrire le noyau d'un systéme LISP : VLISP, pour mini- 
ordinateurs qui réalise ce compromis. Il est clair que nous ne proposons ni un 
système portable (NORDSTROM 1971, BERTHOD 1976), ni une standardisation de LISP, 
telle que celle de HEARN (1969), qui de toutes façons ne serait nullement néces- 
saire. Tout au contraire, nous décrirons en détail l'implémentation du système 
VLISP, reflétant l'état du langage tel qu'il est, à l'heure actuelle, effective- 
ment utilisé. 


Cette description sera donnée sous forme de programmes dans une notation elle- 
même issue des plus récents développements de LISP en fonctions de données : la 
notation par filtrage. 


Cette notation nous permettra de décrire la syntaxe concrète des objets LISP 
a créés et manipulés par l'interprète, tout en nous permettant 


(1) d'éviter de faire dépendre la description de l'interprète des carac” 
téristiques d'adressage d'ordinateurs particuliers. 


(2) de ne pas accéder aux composantes de LISP par des chaînes opaques et 
fastidieuses de sélecteurs CAR et CDR : notre notation nous permet la 
référence inmédiate à des composantes en position quelconque (1) 


(3) de ne pas engager prématurément des décisions d'implémentation de trop 
bas niveau, en particulier en ce qui concerne l'accès aux variables, et 
le mode d'implémentation de la zone de contrôle de l'interprète. 


Cette notation permet de surcroît de rassembler les notions d'affectations, d 
tests, de spécification de structure d'expressions symboliques LISP, d'accès 
des composantes arbitraires de listes, dans une description unifiée. 


e 
à 


Avant les descriptions de l'implémentation du système VLISP, nous exposerons 
notre notation de filtrage, puis nous décrirons les structures de données VLISP 
et leur organisation en mémoire, ainsi que la spécification en terme de filtrage 
de nos structures de contrôle sous forme de continuations. 


(1) notre notation a donc une puissance descriptive très supérieure à celle proposée 
par (KOWALSKI 1973), cette dernière ne permettant pas les références directes à 
des éléments en position arbitraire. 
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Nous avons effectivement implémenté le systéme VLISP ici décrit sur plusieurs 
mini-ordinateurs (en particulier CAE 510, T1600 (1)), ā 1'Université de Paris 8, 


où plusieurs projets en Intelligence Artificielle y utilisent des extensions 
décrites dans (GREUSSAY 1975). 


(1) VLISP est naturellement transportable sur des ordinateurs plus puissants une 


implémentation sur PDP 10 a été réalisée à l'Université de Paris 8 par Jérôme 
CHAILLOUX (CHAILLOUX 1976). 
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2 L'OUTIL DE NOTATION : LE FILTRAGE (1) 


Le filtrage est une expression booléenne que nous noterons 
ASF 


dans laquelle l'argument À est une S-expression quelconque et F est un filtre. 
Le filtre F est de meme une S-expression pouvant également comporter des 
variables LISP spécialement distinguées que nous nommerons variables de filtre. 


t , + b . ~ 
Soit vj, «++, Va les variables de filtre ayant des occurences dans F, Le problème 
du filtrage est de trouver une suite Sy» +. 8, de S-expressions telles que 

r + a F S L E EE =Z A 
CO, Ya ) 1 Sn ? 


L'évaluation d'un filtrage est un processus séquentiel et déterministe qui consis- 
te à substituer aux variables de F des éléments constants de À en même position, 
que nous dirons filtrés dans A, de telle façon que F devienne identique á A. Si 
cela est possible, nous dirons que le filtrage est satisfait, et dans le cas 
contraire, qu'il échoue. 


Co (2 ea LD) Ied) 


Exemple : si A 
Cix Cy d !x) ?y d) 


a et 3 


(où x et y seront les variables du filtre F,le préfixe "!" spécifiant x comme 


variable d'élément, et "?" spécifiant y comme variable de segment) 
alors A F est satisfait pour la substitution x=(1), y=(2 c) 

si encore A = (1 Cd 1) å) 

alors A i: F est satisfait pour la substitution x=], y=NIL 

mais si A= (1 Cd 1) 1 d) 

alors il n'existe aucune substitution qui satisfasse A :: F, échec 

ici du filtrage. 


ll + 


~ 


Les variables du filtre seront localement liées 3 ces éléments constants de A 
que nous nommerons F-valeurs des variables locales du filtre (en les distinguant 
des valeurs normales des variables LISP que nous nommerons C-valeurs). En cas 
de'succés du filtrage, la F-valeur des variables du filtre devient la C-valeur 
des variables LISP correspondantes (par délocalisation des variables du filtre). 
En cas d'échec, la C-valeur des variables du filtre n'est pas modifiée. 


2.1 Spécification des filtres 


Soit k un atome LISP constant, v une variable, s un segment de A, f un filtre, 
e une expression LISP évaluable. Les caractères préfixes (cf. $5.4) "I", "2", et 
'"," ont pour rôle de repérer syntaxiquement le type des variables. 


(1) le filtrage tel qu'il est ici décrit est une fonction standard de VLISP (cf. $5.9) 
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Un filtre £ pourra étre constitué par 


(1) k un atome LISP. k doit être identique à A, 

(ii) I une variable d'élément anonyme : elle filtre À sans 
contrainte 

(iii) ly (1) une variable d'élément nommée : elle filtre À sans 

contrainte et v se trouve localement liée 4 A. 

(iv) 2 une variable de segment anonyme : elle filtre un segment 
s le plus court possible de A, de O éléments ou plus. 

(v) ?v (1) une variable de segment nommée :.elle filtre un segment 
s le plus court possible de A, et v se trouve localement 

(vi) V la F-valeur locale de la variable v, si cette liaison 

2 

locale existe, sinon la C-valeur de v. 

(vii) tv e... e ) identique à (iii). Toutefois les ej ... e, sont des 


expressions LISP qui imposent des contraintes à la 
F-valeur de v. Les ej] ... e, sont évaluées en séquence, 
et aucune d'entre elles ne doit s'évaluer à NIL. 


(viii) ?(v Ej +. e) identique à (vii) pour les variables de segments. 


(ix) (“ALTA f, N Ea? une suite de filtres f] ... fp telle que si A :: f] alors 
succès sinon si A :: fọ alors succès sinon ... Si À l! £, 
alors succés sinon échec. 

(x) (fy £, Pa £ ) une suite fj ... f, de filtres tels que chacun d'eux doit 


filtrer un élément ou un segment de À en même position. 


En cas d'échec d'un filtre f;, 1>1, une nouvelle tentative est effectuée avec un 


; filtre de segment f:, i>j, par adjonction d'un élément supplémentaire de A au 
segment filtré par Ejo et les liaisons locales des variables des filtres 
f. f, res Ti f. sont annulées. 
jel “442 iy Es nulée 


Le filtrage échuue totalement s'il y a échec d'un filtre fis} et qu'il n'existe 
pas Je filtre de segment fici" 
Nous utiliserons également les abréviations suivantes : 
Tae — 
x Sa CQUOTE x) 
(x : y) af (CONS x y) 


(x, Xy e.. Kt Y) Sag CCONS x, (CONS x, +... CCONS x YA ean J) 


2 


(1) naturellement, si v, ayant déjà été rencontrée dans le filtre, possède une F-valeur, 
lv et ?v représentent alors la F-valeur de la variable v. 
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= j- 


2.2 Exemples 


S1 L est une liste non vide 


L :! (?- !AI) peut être décrit comme 
CSETQ Al CLAST L)) 


(XY a Ly ee TE comme 
CSETQ L CCONS X CCONS Y L))) 


L :: C?- CA : 1A2) ?-) comme 
CAND CSETQ X CASSOC Al iD) 
CSETQ A2 CCOR XDD) 


Loi: CCIA1 ?A2) ?L) comme 
| CCOND CCLISTP CCAR LD) 

CSETQ Al CCAAR LD 

CSETQ A2 CCDAR LD) 

CSETQ L CEDR OD) 


L 3: (?- X ?-) comme 
CMEMQ 'X L) 


L 3: C?Al ?A1) filtrant un argument de type (segment méme-segment) et affectant 
si c'est le cas le segment de liste à Al peut être décrit comme 


CCOND 
CL. CAND 
CEVENP CLENGTH LD) 
CEQUAL CSETQ Y 
CNTH CSETQ X CADD1 CQUO CLENGTH LO DX 
Ly) 
CREVERSE (NTH X (REVERSE LDD 
CSETQ Al Y))) 
CCSETQ AI NIDO) 
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3 LES OBJETS DECRITS : atomes, liste de contrôle, continuations 


3.1 ATOMES 


e mh a ee tent 


Bien qu'un atome LISP soit en principe un objet indécomposable par des 
moyens chimiques (CAR et CDR), il convient, s'il s'agit de décrire son implé- 
mentation, de lui imposer une certaine structure. 


Nous distinguerons deux types d'atomes 


. les nombres : un nombre n sera représenté par une S-expression 
(nombre : n) 


. les atomes non-numériques : un tel atome x sera représenté par la 
donnée de quatre champs 


<x.CVAL, x.PLIST, x.CODE, x.NOM> 


| tels que 


af 


x. CVAL : valeur LISP de l'atome x considéré 
comme variable 


x.PLIST : T-liste de l'atome x 


x. CODE : continuation associée à x dans l'inter- 
prête si x est une fonction standard 


x.NOM  : nom imprimable de l'atome x. 


_3.2 LISTE DE CONTROLE 


ens pun nar ee me ert eg ret ptt el i ret APE A eee 


11 s'agit d'une liste quelconque, pouvant donc être argument d'un filtrage. 
Elle pourra comprendre 


. des atomes 
. des listes LISP 
. des continuations de l'interprète 
Elle sera le plus souvent gérée comme une pile. Notre méthode de description par 


filtrage nous permettra, au niveau de l'implémentation, de rendre cette pile 
vistble. 


J3 CONTINUATIONS 


ee et er ee ee ee ee 


Une continuation ec est une suite ordonnée de filtrages (1) 


(1) la technique des continuations (FISHER 1972, STRACHEY 1973) consiste à ajouter à 
une fonction £(xj,--.,X,) un argument fonctionnel supplémentaire y, la continuation, 
et à transformer f en une nouvelle fonction 

E (200.9 sy) = ¥(E(x see XD) 


telle que f' ne retourne pas une valeur, mais retourne une combinaison qui est 
l'application de la continuation y à la valeur calculée par f. 
Notre interprétation des continuations est fondée sur la possibilité de 


défonetionaliser une continuation en une liste finie d'instructions (REYNOLDS 1972). 
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Nous distinguerons des continuations normes, par exemple 
EVAL = ¢ 

et des continuations anonymes, par exemple 
alors c 


sinon e 


Nous utiliserons pour décrire l'interprète VLISP deux variables de continuation : 
C qui désigne la continuation présente et R qui désigne une continuation de retour. 
Nous nommerons filtrage actif le premier élément de la continuation présente. 


Nous utiliserons les structures de contrôle suivantes : 


soit Cl et C2 des continuations et P une liste de contrôle 


(Ce2 : P) c1) :: CIP !C) abrégé en rec cl ; c2 
l 


qui; est interprété naturellement comme un appel récursif, la continuation 
c2 est empilée dans la liste de contrôle, cl devient la continuation 
présente et son premier élément devient le filtrage actif. 


P :: CIC ?P) abrégé en derece 


retour d'appel récurs1f. 


Cel e22 :: Cle IR) abrégé en ap cl ; c2 


qui est interprété naturellement comme un appel non nécessairement récursif, 
et non-nécessairement suivi de retour. 


Ri: IC abrégé en ret 


- A tout filtrage scra assccié une continuation exceptionnelle qui deviendra la 
continuation présente en cas d'échec du filtrage. 
Nous distinguons ainsi les expressions condtttonnelles 


+ 


st À ii F alors cl fst c2 
et st À i: F alors cl sinon c2 fst 


dans lesquelles la continuation exceptionnelle est c2, 
et les expressions tneonditionnelles 


TAS 


dans lesquelles la continuation exceptionnelle est dépendante d'une implémentation 
particulière, l'interprétation usuelle étant la communication à l'utilisateur du 
systèm VLISP d'un diagnostic d'erreur, suivie d'une activation de la 
boucle-racine-LISP. 


Par commodité, nous utiliserons également des abréviations telles que 


tantque £ fatre c ftan 
pour E = st f alors c ; app E fst 
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4 L'ORGANISATION EN MEMOIRE DES OBJETS DECRITS 


4,1 Structure de la mémoire 


a a a ann eG ey mete opel ft 


La mémoire de VLISP se divise en cing zones 


(1) la zone de l'interprète, comprenant les tables syntaxiques, les 
tampons et programmes d'entrée-sortie, et les continuations de 
l'interprète proprement dit. 


(2) la zone des atomes non-numériques, limitée supérieurement par le 
a pointeur HATOM, 


(3) la zone des listes et des nombres, limitée supérieurement par le 
pointeur HLIST. 


(4): la zone de contrôle, cette zone étant le plus souvent gérée comme 
une pile, limitée supérieurement par 


(5) la zone des programmes compilés et assemblés des utilisateurs, 


En VLISP T1600 (figure 1) ces zones sont consécutives en mémoire. 


<——— HATOM 
ba LISTES 
e HLIST 


Z. CONTROLE 


~ figure 1 - 


Un élément de liste ou un nombre occuperont deux mots de 16 bits consécutifs de 
la zone des listes. Le type, atome ou liste d'un objet est donc déterminé par 
son adresse d'implantation. | 


Dans le systéme VLISP T1600, les dimensions des zones atomes, listes, et contrôle 


sont modifiables dynamiquement sur une intervention de l'utilisateur, dans la 
limite des ressources disponibles. 
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=~.) = i 


4.2 Organisation de la zone des atomes 


cr mt ey hi ee e o rd cl a IA A A dd PRA DA RV MA A A O pp g MONA GU UN, SE FA MORE PA E See 


Cette zone, en VLISP, se répartit en quatre sous-zones 


(1) les atomes pré-définis qui sont les noms de fonctions standard de 
type SUBR, LSUBR, MSUBR. Cette sous-zone est limitée supérieurement 
par le pointeur HSUBR, 


(2) les atomes pré-définis qui sont les noms de fonctions standard de 
type FSUBR, sous-zone limitée supérieurement par le pointeur HSUBR. 


(3) les atomes pré-définis quí sont des constantes standard : NIL, QUOTE,T, 
LAMBDA, EXPR, FEXPR. 


(4) les atomes qui sont définis par l'utilisateur : constantes, variables 
et noms de fonctions 


SUBRS 
LSUBRS 
MSUBRS 


== FOUR 
FSUBRS 


AN > HFSUBR 
CONSTANTES 
PRE-DEFINIES 


ATOMES DE 
L'UTILISATEUR 


HATOM 
~ figure 2 - 
En VLISP T1600 ces sous-zones sont consécutives en mémoire. Le type des fonctions 


standard est défini par l'adresse d'implantation de leur atome~nom, et non pas 
par la présence ou l'absence d'un indicateur. 


4.3 Implementation des atomes 


Out qu. rt aa e Dll ral ee el ete te ee ee ps E PU UG TÁ ee ee A A ee 


Un atome sera une Suite de mots consécutifs en mémoire comprenant 


(1) deux mots, CVAL et PLIST, pouvant contenir l'adresse d'un atome ou 
d'une liste. 


(2) un mot : CODE pouvant contenir l'adresse d'une continuation de 
l'interpréte. 


(3) une zone : NOM pouvant recevoir une chaîne de caractères qui rendra 
imprimable le nom de l'atome. 
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En VLISP T1600, les zones CVAL et CODE sont confondues (figure 3) (1) 


CODE PLIST 


Atome de fonction standard 


CVAL | PLIST 


Constante standard 
ou 
atome de l'utilisateur 


- figure 3 - 


Un atome x, pré-défini ou non est une constante si 


Xe CVAL = x 


Les zones CVAL et PLIST sont organisées en doublet et sont donc accessibles 
de la même façon qu'un élément de liste 


CCAR x) = x.CVAL 
CCDR x) = x.PLIST 


Les fonctions CAR et CDR sont donc définies avec des arguments atomiques. Le 
doublet CCVAL.PLIST) d'un atome est dës lors modifiable par les fonctions RPLACA, 
SET et SETQ pour la gone CVAL, et par la fonction RPLACD pour la zone PLIST. 


La zone PLIST des atomes standard pourra contenir des informations intéressantes 
sur l'état de l'interprète, ainsi l'évaluation de 
CCDR 'REM) 


livre le nombre de doublets disponibles depuis le dernier garbage-collecting. 


(1) Ces zones sont au contraire distinctes en VLISP PDP 10, et des fonctions standard 
de modification de la zone CODE permettent une certaine compatibilité avec 
d'autres systèmes LISP, où les mêmes fonctions peuvent avoir des noms différents, 
notamment MACLISP et INTERLISP. 
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5 DESCRIPTION DE L'INTERPRETE 


5.1 Le- noyau 


La boucle-racine~LISP est la continuation exceptionnelle de tout filtrage 
inconditionnel. Elle devient la continuation présente en cas d'échec du 
filtrage. 


Le mode EVALQUOTE étant tout ā la fois une incommodité et une source de confusion, 
l'interprète VLISP fonctionne naturellement en mode EVAL. 


BOUCLE-RACINE-LISP = 
repeter rec READ ; 
ree EVAL ; 
rec PRINT 


frep 


Le rôle principal d'EVAL et APPLY est le lancement des fonctions standard par 
l'expression : app F.CODE. APPLY et EVAL peuvent également lancer des SUBRS et 
LSUBRS (cf. $5.4), la liste des arguments évalués est dans Alt, les premiers, 
seconds et troisièmes éléments de cette liste sont distribués dans Al, A2, A3, 
pourvoyant ainsi aux fonctions standard à 1, 2 ou 3 arguments.EVAL seul peur 
lancer les FSUBRS, avec dans Al la liste des arguments non-évalués. 


5.1.1 eval 


EVAL = 
SL AI<HATOM ators Al.CVAL :: IAI 
sinst Al i: {*ALT* (nombre ?-) (QUOTE !A1)} alors 
sinon Al :: CIF ?A1); 
EVAL2 = 
St F<HATOM alors 
St F.PLIST :: €?- EXPR !F ?-) alors 
sinst F.PLIST :: (?- FEXPR !F ?-) alors 
CF CAI:NIL)D) :: CIAL 1A4); 
app APPLY 
Sinst FSHSUBR alors Cmarg :F) 1: iF 
Stnst FSHFSUBR alors app F.CODE 
sinon CF F.CVAL) :: CIVARESC !F); 


app EVAL? 
fet 
fer 
CF : P) :: IP; rec EVLIS; CAL P) :: CIAL CIAL ?P)); 
st Al :: Cmarg ?F) alors 


Ak i: CHAI !A2 !A3); app F.CODE 
sinon app APPLY 
fst 
fst 


derec 
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Lorsque le premier élément de la forme 4 évaluer est un atome : 


(1) si c'est le nom d'une EXPR : les arguments sont évalués et main est 
passée à APPLY 


(2) si c'est le nom d'une FEXPR : APPLY est alors directement invoquée 


(3) si c'est le nom d'une SUBR : les arguments sont évalués et celle-ci 
est lancée 


(4) si c'est le nom d'une FSUBR : lancement direct de celle-ci 
(5) sinon, faute de disposer de l'information suffisante pour savoir si 


les arguments doivent être évalués, la CVAL de l'atome est extraite, 
et la continuation EVAL2 est relancée. 


Lorsque le premier élément de la forme 4 évaluer n'est pas atomique, EVAL suppose 


par défaut qu'il s'agira d'une EXPR ou d'une SUBR, les arguments sont evalués, et 
main est passée á APPLY. 


5.1.2 apply 


APPLY = 
repeter 
sí A1<HATOM alors 
St AL.PLIST :: C?- EXPR !Al ?-) alors 
stnst A1<HSUBR alors 
CAL : ASD :: CIF 1A1 !A2 !A3); app F.CODE 
sinon AI.CVAL :: !Al 
fst | 
sinst CA : A1) :: CIY LAMBDA !X ?A1) alors 
‘ app LIER; rec PROGN; app DELIER: derec 
sinon 
CAL : P) :: IP; rece EVAL; P :: CIAL ?P) 
fst 
frep 


APPLY doit trouver dans A4 une liste d'arguments nou-évalués, et dans Al une 
expression qui directement ou indirectement devra @tre une lambda-expression, 
ou le nom d'une SUBR, 


Si APPLY trouve dans Al le nom d'une EXPR, l'expression associée à cet indicateur 
sur la P-liste est extraite. Nous aurons les possibilités 


(1) CEXPR !)-expression) : les variables locales sont alors liées, et le 
corps de la A-expression est évalué 


(2) CEXPR !nomde-SUBR) : ce qui est une façon de rebaptiser les fonctions 
Standard 


(3) CEXPR !variable) : la CVAL de la variable est extraite et APPLY 
est relancée 


Si APPLY trouve dans Al le nom d'une SUBR, celle-ci est lancée. Sinon 1'évaluation 
du contenu de Ai est demandée, après quoi APPLY est relancée. 


Nous examinerons en détail au §5.3 les continuations LIER et DELIER, responsables 
de la sauvegarde et de la restitution des valeurs des variables. 
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5.1.3  evlis et _progn 


EVLIS = 
St Al :: NIL alors 
sinon CNIL : NIL) :: 1A2; CA2 : P) i: IP; 
tantque CAL A2 Al : P) :: CCIAI ?-) ?P) fatre 
rec EVAL; 
CCAL : NIL) : P) :: CHA2 1A3 Ci- ?A1) ?P); 
= A2 :: !A3.CDR 
è fan 
Poi: CCl- PAI) ?P) 
fst 
derece 
PROGN = 
Al :: 1A2; 


tantque (A2 A2 : P) :: CCIA1 ?-) ?P) fatre 
rec EVAL; P :: CC!- ?A2) ?P) 

ftan 

derec 


PROGN et EVLIS sont, en VLISP, les opérateurs de séquentialité. 


LE 


EVLIS reçoit en Al une liste d'arguments non-évalués, Elle doit retourner 4 son 
appelant une liste de ces arguments évalués, liste retournée en Al. On notera 
que cette évaluation est strictement séquentielle. 


PROGN reçoit de même en Al une liste de formes à évaluer. La valeur de ces formes 


est ignorée à l'exception de celle de la dernière, qui est retournée en Al. 


PROGN pourralt ainsi se définir en VLISP 


CDE PROGN CL) CCOND 
CCCDR L) CEVAL (NEXTL LD) CPROGN LDD 
CCEVAL CCAR ODD 


5.1.4 Un_exenple d'évaluation 


o o cote ee ss ee SE ee ee ee ee ee ee ere 


Suivons notre interprète dans l'évaluation d'un exemple. 


Après l'évaluation de 
(SETO B CAR) CSETQ A 'CCONS)) 
nous aurons | 


B.CVAL = CAR 
A.CVAL = (CONS) 


Est alors livrée a EVAL la forme 
CCB AD VW) 


Nous suivrons le destin de cette forme en utilisant la notation 


x{v, = e ss, V = e, 


: j? a 

qui donne les valeurs e,, ..., e des variables v,, ..., v de l'interprète dans 
la continuation x 1a 1 n 

é 
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eval {Al = CCB AD 'V tw} 
eval {F = CB A), Al = C'V 'W)} 


eval2 {Al = (B A), AL = CV W)) 
apply {Al = (BAD, A4 = CW W)} 
apply {eval {Al = CB AD}, Au = CV WD} 
apply {eval {F B, At = CAD}, Ab = CV W)} 
apply leval2 {F CAR, Al = CAD}, A4 = CV W)) 


Cnarg : CAR), Al = CAD}, Ah = CV WD} 
(marq : CAR), At = CCCONS))}, Ah = CV W)} 
CAR, Al = (CONS), A2 = A3 = NIL, A4 = CCCONS))}, AG = CV W)} 


apply fevai2 {F 
apply feval2 {Al 
apply {evai2 {F 


HEE oa) ff 11 ott liy 


apply {Al = CONS, Ab = CV W)) 
apply {F = CONS, Al = V, A2 = W, A3 = NIL, A4 = CV W)} 
sa TALES (V e W) sci 


On notera qu'EVAL considère les définitions de fonction de l'utilisateur comme 
prioritaires sur la définition standard. Ainsi l'utilisateur a tout loisir de 
redéfinir une fonction standard. Voici en exemple une redéfinition de SETQ 


CDF SETQ C1L) | 
(SET CPRINI CCAR 1L)) CPROGN 
CPRINI '=) CPRINT CEVAL CCADR 1133333) 


Chaque évaluation d'une affectation de variable provoquera l'impression du nom 
de cette variable ainsi que de la valeur de la variable ainsi affectée 


CSETQ A 'CLE DOMED) 
provoquera l'impression de 
WA = CLE DOME) * 
et A.CVAL = CLE DOME) 


On notera également qu'EVAL est une fonction disponible 4 l'utilisateur, fonction 
* standard de type SUBR (cf. §5.4). Ainsi on aura : 


CEVAL CADD1 DD) + 2 
CEVAL 'CADDI 1)) > 2 
CEVAL CREAD)) CADDI 1) + 2 


5.2 Lambda-expressions étendues 


MAP ee eee eee eee Ce ere eee ee ee ee ee ee ee eee ee ee DÍA ee ee ee ee ee ee ed ee ee 


En VLISP, une lambda-expression est de la forme 
CX liste-de-variables el e2 +... en) 


dans laquelle les el, e2, +... , en sont évalués en séquence par la continuation 
PROGN qui retourne la valeur de en. Ceci permet d'éviter de réévaluer des sous- 
expressions communes, et introduit une forme de séquentialité plus efficiente que 
celle permise par les formes du type PROG. 


On notera l'absence des formes LABEL qui, en LISP 1.5 autorisaient des définitions 
provisoires de fonctions, ainsi que la disparition des formes du type 
CFUNARG fonction a-liste) 


Ceci est une conséquence du mode de liaison des variables en VLISP oú la stratégie 
dite d'élimination (FISCHER 1972) a été délibérément choisie, Cette caractéristique 
peut être partiellement remplacée par la fonction, de type SUBR 


CEVALA e a-liste) 
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dont voici l'implémentation 


EVALA = st A2 :: (?- CAL ?2A1) ?-) alors derec 
subr oe 
sinon app EVAL 
fet 


et qui donne pour l'évaluation de variables, priorité à la liaison de celles-ci 
si elle existe, sur une A-liste de l'utilisateur, et dans le cas contraire invoque 
normalement EVAL, 


5.3 Liaisons des variables 

VLISP se distingue très fortement de LISP 1.5 en mettant en jeu le principe 
des vartables fluides i.e. la portée des variables libres étant définie dynami- 
quement, | 
En LISP 1.5. les variables étaient localement liées sur une A-liste, représentable 
fonctionnellement, pour une A~liste de longueur n, par l'expression conditionnelle 


Qx « 6% x = varl alors vail satust x = var? alors val? ... 
STnst x = varn alors valn 
sinon erreur-variable-indéfinie 


fst) 


Le principe de la A-liste rendait en LISP 1.5 très facile la iiaison locale et 
la restitution des valeurs des variables, mais était trés ineffictente tant en 
consultation qu'en modification (1) et obligeait de surcroît à distinguer deux 
types de variables 


(1) les variables globales dites SPECIALES, affectables par RPLACA ou CSETQ 
(2) les variables de la A-liste, affectables par SET et SETQ 


En VLISP il n'y a pas de distinction entre variables locales et globales. Toutes 
les variables sont globales et leurs valeurs sont censultables et modifiables 
immédiatement dans la zone CVAL des atomes. La fonction d'affectation SETQ peut 
donc s'appliquer à toutes les variables. Ainsi les variables libres sont liées 

a la racine de LISP qui constitue un environnement implicite de liaison pour 
toutes les variables. 


La C-valeur des variables est, 4 la lecture de leur atome-nom, initialisée avec 


avec une valeur spéciale : IWNDEFINI ce qui permet de repérer les tentatives de 
consultation de variables non encore affectées, 


(1) de surcroît, les A-listes, en encombrant la zone des listes, rendaient d'autant 
plus fréquentes les garbage-collections, 
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C'est APPLY qui, lors de l'évaluation d'une forme de type 


(CA (v, +... v_) corps) e, ... e ) 
th j n 
ou ((A v corps) 8, e? 


LE 


assure la gestion des liaisons et déliaisons des variables locales a la lambda- 
expression, en appelant les continuations LIER et DELIER 


LIER = 
CGmarg : LLIEN) :P) :: 1P; 
st XSHATOM alors 
sí X :: NIL alors 
sinon CY X X.CVAL : P) :: CIX.CVAL ?P) 
fst 
sinon tantque X i! CIXI 2X) faire 
| CY X1 X1.CVAL : P) :: CCIXI.CVAL ?Y) 2P) 
. © ftan | 
fst : 
P it ILLIEN; ret 
DELIER = 
repeter P i: (IX ?P); 
st X :: Gmarg ?LLIEN) alors ret 
sinon P i: C!X.CVAL ?P) 
fst 
frep 


LIER attend dans X une variable (cas dez LEXPR) ou une liste de variables. Y 
devra contenir une liste de valeurs à lier localement à ces ou cette variables. 


En VLISP T1600, la gestion des variables est assurée au moyen d'une suite chainée 
de vecteurs de liaisons (figure 4), elle même sous-liste de la liste de contrôle. 


E LEN 
VARIABLES 
ET VALEURS 
LLLEN" hr | 
= 


Vecteurs de liaison 
~ figure 4 - 


Confrontons sur un exemple les méthodes de liaison de LISP 1.5 et VLISP. 
Supposons que la continuation APPLY devient la continuation présente, avec 


Al = CA CU V W) ?corps) 
At = (8 (DOME) B) 


En LISP 1,5 nous aurons 


it $b 


(1) avant liaison, l'état de la A-liste, par exemple 
CCU.FEUD CV.3) (W.-12) ... ) 
(2) apres liaison 


((U.8) CV.DOME) CW.B) CU.FEU) C(V.3) (W.-12) ... ) 
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En VLISP T1600 nous aurons 


(1) avant liaison : 


U.CVAL = FEU V,CVAL = 3 W,CVAL = -12 
(2) aprés liaison : 
U,CVAL = 8 V.CVAL = (DOME) W.CVAL = B 


et un nouveau vecteur de liaison sera formé dans la liste de controle (figure 5) 
i 


T +———— LLIEN 


— -m 


12 


- figure 5 - 


L'affectation de toutes les variables sera possible en VLISP grâce aux fonctions 
SET, SETQ et RPLACA, 
» Voici l'implémentation de SETQ 


SETQ = 
SUP Car A1 : P) :: CO !A1) ?P); ree EVAL; 
P :: CC!IA2 ?-) ?P); Al :: !A2,CVAL; 
derec 


En outre, VLISP comprend une fonction très particulière 
(NEXTL !variable) 


qui retourne le CAR de la valeur de la variable, et réaffecte implicitement 
la variable avec le CDR de sa valeur, ce qui permet l'utilisation d'une forme 
limitée de stream (LANDIN 1965). 


NEXTL 


ee Al :: C!A2); A2.CVAL :: C!AI ?A2.CVAL); derec 
Soit L,CVAL = Ca bc) 
l'évaluation de (SETQ X CNEXTL LÐ) 
donnera X.CVAL = a 
= (b c) 


et L.CVAL 
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5.4 Types des fonctions en VLISP 


AAA a id 


En VLISP, les fonctions, qu'elles soient standard ou définies par 1'utilisa- 
teur sont distinguées par 


le traitement (évaluation et distribution) des arguments des appels 
. l'appel explicite ou implicite (macros) 


On distingue en VLISP 8 types de fonctions 


-¢1) SUBRS : fonctions standard de nombre fixe d'arguments évalués et distribués 
- (2) EXPRS : fonctions de l'utilisateur identiques 4 (1) | 

(3) FSUBRS : fonctions standard de nombre quelconque d'arguments non-évalués et 

| rassemblés en une liste unique 

(4) FEXPRS : fonctions de l'utilisateur de nombre quelconque d'arguments non- 
évalués et rassemblés en une liste unique liée au premier argument 

(5) LSUBRS : fonctions standard, de nombre quelconque d'arguments évalués 
rassemblés en une liste unique 

(6) LEXPRS : fonctions de l'utilisateur, identiques à (5) 

(7) MSUBRS : macros-standard. La détection dans le flot de lecture du caractère 
qui est le nom de la MSUBR provoque le lancement de la continuation 
de l'interprète correspondante, interrompant ainsi provisoirement 
la lecture 

(8) MEXPRS : macros de l'utilisateur, identiques à (7) 


Ainsi l'abréviation 'x pour (QUOTE x) est implémentée par une macro de type MSUBR 
qui, si eile n'était pas standard serait einsi définie 


CMCHAR ' Ca O -CLIST QUOTE CREAD)))) 
En voici un autre exemple. Si on a défini 

CMCHAR = CA O CREVERSE CREAD))) 
alors 1'évaluation consécutive 4 la lecture de 

‘Ca b ce de) fF g) 
retournera en valeur 

Ca b Ce d c) £g) 


La possibilité de définir des macro-caractères est nécessaire pour l'implémentation 
de dérivés de LISP tels que CONNIVER (Mc DERMOTT 1974), qui imposent des types aux 
variables des filtres (1) 


Les fonctions de l'utilisateur, mème définies avec n arguments peuvent en VLISP 
être appelées avec un nombre k d'arguments différents 


(1) si k>n les arguments supplémentaires seront ou non évalués, selon le type 
de la fonction, puis ignorés | 

(2) si k<n les arguments de la définition seront initialisés commodément 4 la 
valeur NIL, 


Cette non-obligation d'identité du nombre d'arguments actuels et formels, ainsi que 
la définition précise par l'implémentation de EVLIS de la séquentialité de 1'évalua- 
tion des arguments d'une fonction EXPR, LEXPR, SUBR ou LSUBR, permettent d'utiles 
effets de bord. 


(1) voir (BAUMGART 1972) pour une illustration de l'opacité de lecture des program- 
mes MICRO-PLANNER, inhérente à la non-implémentation en LISP 1.6 des macros- 


caracteres. s 
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Ainsi CSET 'X Y CSETQ Y 1D) 
échange les C-valeurs des variables X et Y, 
Ainsi encore si on a évalué 
(SETO X ™CNULL)) 
CCAR X) > NULL 
 CCCAR XY) > T 
CCCAR X) CCCAR XD) + NIL 


5:5 Les P-listes 


Piel dl. am oma mm an en ie tet nd, t «ld 


Je type des fonctions standard est déterminé par l'adresse d'implémentation 
de leur atome-nom. Celui des fonctions de l'utilisateur est déterminé par consul- 
tation d'un indicateur sur leur P-iiste. 


Les fonctions de consultation et de modification de P-liste sont, en VLISP, GET 


et PUT 
GET br - 
st AI<HATOM alors AI.PLIST :: IAI fst 
sí Al :: C?- ,A2 lAl ?-) ators 
sinon NIL i: 1Al 
fat 
derec 
eae J « 
St A1<HATOM alors 
A1.PLIST :: TAS; 
st At :: O alors 
CA3 A2) ii lA4.PLIST; deree 
fst i 
stnon Al i: 1A% 
fst 
gusqua AL :: (,A3 ?A4) faire 
. AL i: Cl- 2Ah); 
st Al :: C!-) alors 
CA3 A2) :: !AK.CDR; derece 
sinon A4 :: Cl- ?A4) 
fst 
fjusa 


A2 :: IA4.CAR; derec 


Les fonctions standard DE et DF réalisent la définition de fonctions de type 
EXPR-LEXPR et FEXPR en créant la lambda expression attachée à l'indicateur de type 
sur la P-liste du nom de la fonction. Voici par exemple 1'implémentation de DE 


art a 
Al :: CIAL ?A2); 

CEXPR LAMBDA : A2) :: CIA3 ?A2); app PUT 

Toutefois une P-liste, en VLISP peut ne pas être liée à un atome. GET et PUT sont 

donc définies sur des P-listes autonomes. 

Ainsi (GET *'(A 1 B 2) 'B) = 2 

et (PUT 'CA 1B 2) 'C 3) = (A1B2C 3) 

Cette implémentation des P-listes rend aisée la définition de MEMO-FONCTIONS (MICHIE 

1967), objets á mi-chemin entre procédures et tables consultables. 
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Voici par exemple la définition sous forme de mémo-fonction de la fonction © 
FIBONACCI en VLISP, telle qu'aucun appel de la fonction ne sera calculé plus ¿'une 
fois, pour toute valeur de l'argument. 


(DE FIB (ND . 
(OR (GET 'FIB ND 
(A CX) CPUT 'FIB XN) 
x) 
CCOND 
CCLT N 2) 1) 
CCPLUS CFIB (SUBI ND) 
| (FIB CDIFFER N 2)))))D)) 


5,6 Expressions conditionnelles, sélection par _ cas et itérations 


cure var dope eje pe a cil eu itn A hte ke RS ee ces ep el ee hdd Ee SY re deme aban mr. deep qd a. peur sll ii AO E O er ey epee ein AA A Sry cere ds te cette i da a NY TA 


tendu, sous la forme (1) 


Mi 


Le COND de LISP 1.5 a été 
CCOND c, € 


atte c? 

dans laquelle chaque clause c; est de la forme 
Ce, eg +. e 

le premier élément e de la clause c} est évalué, et, si la valeur retournée est 

non-NIL, les ez ++. en de la classe sont évalués en séquence, et la valeur de en 

est retournée comme valeur du COND. Si toutefois l'évaluation de ey livre NIL, la 

clause cy est traitée de la même façon. Si aucune des clauses n'est retenue, la 


valeur du COND est NIL,Une clause c; peut être réduite à l'unique élément (e1), et 
si son évaluation livre non-NIL, cette valeur est retenue comme valeur du COND, 


Voici l'implémentation de COND 


COND cs ubr 7 
tantque CAL Al : P) :: CCCIAI ?-) ?-) ?P) fatre 
ree EVAL;P :: C!A2 ?P); 
. sí Al :: NIL alors A? :: Cl- PADD 
sinon A2 i: (Cl- ?A2) ?-); 
sí A2 :: NIL alors derec 
stnon A2 :: lAl; app PROGN 
fst 
fst 
ftan 
derece 


En VLISP, les fonctions AND et OR sont des structures de contrôle et retournent, 
dans le cas du AND, NIL ou la valeur du dernier argument, et dans le cas du OR, 
NIL ou la valeur du premier argument tel que son évaluation retourne non-NIL. 


Voici l'implémentation du AND 


AND pbr ~ | 
repeter CAI Al : P) :: CCIAI 2-) ?P); 
rec EVAL; P :: CCI- ?A2) ?P); 
sí A2 :: NIL alors derec 
sinst Al :: NIL alors deree 
sinon A2 :: LAI 
fst 


frep 


(1) cette extension du COND est due à D.G. BOBROW (BOBROW 1969). 
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La fonction de sélection par cas SELECTO a été étendue, sous la forme 
E TQ e cas € 
(SELECTO e C) © 2? 
oú e est une expression LISP évaluable et chaque clause Cys vers Cy est de la 
forme 
(atome suite-des-expressions-à-évaluer) 


~ 


L'expression e est évaluée, puis comparée à l'atome de chacune des clauses 

Cpe eee, Cn-1. S'il y a identité, la valeur du SELECTO est celle de la suite-des- 
expressions correspondante. S'il n'y a identité pour aucune, la dernière clause c 
est évaluée par PROGN. e 


SELECT = 
*tsubr CA AI : P) :: CUAL 2-) ?P); 
ree EVAL; P :: CC!- ?A2) 2P); 
tantque A2 :: C!IA3 l- ?-) faire 
st A3 :: CA1 ?A1) alors 


féan 
A2 :: CIAL); app PROGN 


Plusieurs formes d'itérations sont implémentées, en particulier la fonction 
(WHILE ej ses e ) 


qui évalue séquentiellement les e, se. @ tant que l'évaluation de e, Tetourne 

la valeur non-NIL. 

WHILE = 

Fsubr CAL: P) :: IP; 

repeter P :: CCIA1 ?-); rec EVAL; 
si Al :: NIL alors P i: Cl- ?P); 
stnon P :: CCl- ?A1) ?-); rec PROGN 
fst 

frep 


Les fonctions de type MAPC fournissent une autre forme d'itération dans laquelle 
une fonction, second argument du MAPC est appliquée à chaque élément d'une liste, 
premier argument du MAPC 


(MAPC le !fonction) 


la fonction argument peut être une fonction standard, une fonction définie par 

l'utilisateur, ou encore une lambda-expression. 

be 7 

CA2 : P) :: IP; 

tantque (Ai A1 : P) :: (CIAL 7-7) ?P) faire 
CCAH : NIL) P) :: CIAL 1- IAI 2-); 
rec APPLY; P :: CCi- ?A1) ?P) 

ftan 

Poi: Cl- ?P); derec 
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5,7 Le problème des PROGS 


mm mt dt me e ph ot ges ml Multi re cpu gps lites teeth ANT ret ye shhh dd 


PROG et ses fonctions associées, RETURN et GO, survivances en LISP de la 
“programmation de type FORTRAN" (Mc CARTHY 1960a) sont implémentés en VLISP 
essentiellement pour conserver la compatibilité avec d'autres versions de LISP. 
C'est probablement l'emploi du PROG qui a été 3 la source des critiques les plus 
justifiées adressées a l'usage de LISP sous interpréte 


(1) inefficience remarquable due au balayage du corps de fonction à la recher- 
che des étiquettes, balayage renouvellé à chaque appel du PROG (1) 
_{2) encombrement de la zone des listes, en LISP 1.5, par les tables de symboles 
ainsi constituées, encombrement également redoublé a chaque appel. Ce 
7 défaut reste présent dans une moindre mesure en LISP 1.6 (QUAM 1972) 
lorsque ces tables de symboles sont implantées dans la pile de contrôle 
(3) inefficience des branchements de type (60 etiquette), inévitablement 
précédés d'une recherche de 1'étiquette dans la table des symboles 
(4) impossibilité d'effectuer des RETURN multiples (CLINT et HOARE 1972), i.e. 
de faire communiquer des PROGS dynamiquement imbriqués. 


Pour toutes ces raisons, l'utilisation de LISP sur mini-ordinateurs est incompatible 
avec l'usage des PROGS, la lenteur d'execution et l'encombrement que leur usage 
implique interdisant l'introduction et l'évaluation de programmes LISP non-triviaux 
dans des ressources limitées, 


L'unique, et considérable intérét des formes de type PROG réside dans la fonction 
RETURN, donnant la possibilité de sortir d'un bloc à partir d'un de ses points 
quelcondues, retour accompagné d'une valeur, celle-ci se donnant alors pour la 
valeur de l'appel du PROG. Toutefois, La fonction RETURN ne permettait d'effectuer 
qu'un retour à la fonction directement appelante du PROG dans laquelle elle était 


dynamiquement incluse, et ne permettait pas un retour 4 un niveau appelant 
quelconque. 


á C'est A ses difficultés que tente de porter remède l'introduction de la fonction 
ESCAPE en VLISP que nous examinerons plus loin. 


Voici en VLISP, l'implémentation de PROG 
PROG = 


rues, CAL NIL PLOC PETIQ : P) :: CC!X ?A1) IX ?P); 
app LIER; CP A1) :: C!PLOC !A2); 
tantque A2 :: C!X 7A2) fatre 
st X<HATOM alors (X A2 : P) :: !P fst 
ftan 
CP A1) :: CIPETIQ !A2); 
PROG2 = tantque A2 :: CIX ?A2) fatre 
st X<HATOM alors 
sinon (X A2 : P) :: CIAL ?P); 
rec EVAL ; P :: CIA2 ?P) 
fst 
ftan 
PLOC :: IP; app DELIER; P :: CIPLOC !PETIQ ?P); 
derece 
RETURN = 


ue jusqua LLIEN :: ,PLOC faire LLIEN :: !P; app DELIER fjusq 


PLOC :: 1P; app DELIER; P :: CIPLOC !PETIQ ?P); 
derec 


(1) la possibilité d'une inclusion d'une forme PROG dans le corps d'une fonction 
récursive rendrait très lourde à l'interprétation l'implémentation de ce balava; 
comme une Mémo-fonction (MICHIE 1967) i.e. de n'effectuer la recherche des 


* e 1 r a 
étiquettes qu au premier appel d'un PROG, la table des symboles ainsi constituée 
| = restant consultable lors des appels suivants. 
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La fonction de type SUBR (GOTO e) permet de ne pas spécifier à l'avance l'étiquette 
de branchement, mais de considérer celle-ci comme le résultat de l'évaluation de 1a 
forme e, Cette fonction permet de lever l'ambiguïté inhérente au GO de MACLISP 
(WHITE 1970), où l'expression e est considérée comme une étiquette si e est un 
atome, et comme une expression à évaluer devant ramener une étiquette si e est 
non-atomique. 


~ + ] a 
GO cupp = Al :: QAD; app GOTO 


GOTO = 
SUB” jusqua LLIEN :: , PLOC faire LLIEN :: IP; app DELIER fjusa 

PETIQ ::!P; P ii IX 

jusqua X :: C,A1l !A2 ?X) fatre fjusq 

app PROG2 


Notre implémentation du PROG.est proche de celle de LISP 1.6, les tables 
d'étiquettes étant implantées, en VLISP T1600, dans la zone de contrôle, repérées 
par le pointeur PETIQ. PLOC est un pointeur sur le vecteur de liaison des variables 
locales du PROG. Ce pointeur, repérant la même sous-zone de contrôle que LLIEN, 
lorsque la forme évaluée est statistiquement incluse dans le corps du PROG, devient 
nécessaire lorsqu'un (GO letiquette) est évalué dans le corps d'une fonction 
appelée par le PROG. 


exemple : CDE FOO €...) ... CGO E) ...) 
(PROG (eww esa (FOO: ore aes E Lora sas) 


5.8 La fonction ESCAPE 

La fonction ESCAPE est la fonction de saut la plus puissante compatible avec 
la structure de contróle récursive de LISP. Elle n'existe avec cette généralité 
qu'en VLISP, 


Elle se présente sous la forme 
(ESCAPE f e, ... e ) 
] n 


où €, «s+ e est une suite d'expressions à évaluer, et f est un atome choisi par 
l'utilisateur, qui, dans la portée du bloc-ESCAPE, acquiert le statut de fonction 
de sortie de bloc. 


ESCAPE évalue les e, «+. e en séquence et 


(1) si dans la portée du bioc-ESCAPE, est demandée l'évaluation de (£ 0bj:..0b ) 
les ob,-..0b,, Seront évalués en séquence, et on sort du bloc-ESCAPE en ™ 
ramenant la valeur de obm 

(2) si aucune forme de type de type (f ..,) n'est évaluée, la valeur du ESCAPE 
sera alors cella de en. 


Bien entendu, toutes les variables ayant pu être liées dans la portée du bloc- 
ESCAPE, seront restituées avec leur valeur antérieure. 


exemple : CESCAPE ASSEZ 
(WHILE L CAND CLT CNEXTL L) 0) CASSEZ L))) 


Cette forme recherche dans la liste L un segment dont le CAR soit négatif. Si ce 
segment est obtenu, L devient un pointeur sur ce segment, dans le cas contraire la 
valeur de la forme est NIL. 
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exemple : 
(DE COPY-IF-P CE P) 
(ESCAPE NO-P 
(COPY-IF-P-2 EJ) 


(DE COPY-IF-P-2 (E) CCOND 
CCATOM E) CCOND 
CCP E) E) 
CCNO-P CLIST 'NOT E))))) 
CCCONS CCOPY-IF-P-2 (NEXTL ED) 
” CCOPY-IF-P-2 E))))) 
* La fonction COPY-IF-P livre une copie de l'expression E si tous les atomes ayant 
des occurences dans E satisfont á la condition P, et si ce n'est pas le cas livre 
une liste de la forme 


(NOT atome-ne-satisfaisant-pas-la-condition) 


Apparentée à l'opérateur J.de LANDIN (LANDIN 1965, REYNOLDS 1972), la fonction 
ESCAPE permet de sortir de tout bloc-ESCAPE quelque sott la profondeur d'imbricaticn 
dynamique de l'appel de la fonction de sortie. Elle permet ainsi d'éviter l'usage 
des PROGS, tout en conservant la notion de branchement-de-retour (CLINT et HOARE 
1972), en fonctionnalisant la notion d'étiquette. 


Elle a de surcrolt l'avantage 


(1) d'être indépendante du type de bloc (WHILE, MAP, PROG, A-expression, etc.) 
dans lequel la fonction de sortie est évaluée (1). Ainsi les propriétés de 
la fonction ESCAPE seront conservées quelques soient les extensions de 
structures de contrôle qui pourront être incorporées à VLISP 

(2) de mettre en évidence ce fait que la programmation sans branchement n'impli- 
que pas pour autant l'abandon des étiquettes (la fonction de sortie de 
ESCAPE est une étiquette) 

(3) de ne pas exiger de l'utilisateur d'avoir à prévoir le nombre d'imbrications 
Statiques ou dynamiques à franchir pour sortir du bloc-ESCAPE (ce qui est 
une contrainte insupportable si ia langage est interprété, et n'offre pas 
de difficultés insurmontables si le langage est compilé) 

(4) de permettre une implémentation très aisée, dans une extension de LISP telle 
que CONNIVER, des fonctions de sortie de type ADIEU (Mc DERMOTT 1974) 

(5) d'autoriser des imbrications arbitrairement complexes de blocs-ESCAPE, 
chacun des blocs imbriqués pouvant appeler la fonction de sortie d'un bloc 
imbriquant quelconque. 


Voici son implémentation 


ESCAPE br = 
Al :: CIF ?A1); 
C'ESC F F.CVAL Cnarq : LLIEN) PLOC PETIQ : PD :: C!F.CVAL ?P); 
P i: ILLIEN; rec PROGN; 
app DELIER; P :: CIPLOC !PETIQ ?P); 
derec 
ESC fsubr 


CVARESC : P) :: IP; rec PROGN; 

CP LLIEN) 2: CC!VARESC ?-) IP); 

Jusqua P :: (¿VARESC ?-) faire app DELIER fjusq 
app DELIER; P :: CIPLOC IPETIQ ?P); 

derece 


(1) par opposition aux solutions proposées en BLISS (WULF 1971) dans lequel chaque 
structure de contrôle définit sa fonction de sortie particuliére (EXITLOOP, 
EXITBLOCK, EXITCOND, etc.) faute d'étiquettes. 
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5.9 La fonction de filtrage 


La notation par filtrage qui nous a permis de décrire l'implémentation de 
VLISP est bien entendu implémentée dans toute sa généralité en VLISP sous la 
forme d'une fonction standard de type SUBR 


(MATCH filtre argument) 


Les. caractères préfixes "I", "?" et "," indiquant le type des variables locales 
aux filtres sont implémentés par macro-génération (cf. §5.4). 


Exemp les 
La fonction PAL teste si son argument est ou non un palindrome 


(DE PAL CL X) 
CMATCH 'C8ALT ©) 
C=) 
C!X ?CL CPAL ,LDD 10) 
LJ) 


` 


La fonction ISLAM teste si son argument est ou non une lambda- 
expression au sens du A~calcul 


CDE ISLAM CE X) 
(MATCH 'C#ALT* ICE CATOM ,E) CNEQ ,E '1)D) 
CCE -CISLAM: E) I(E CISLAM E222 
C 10X CATOM ,X) CNEQ ,X '1)) 
{CE CISLAM ,E)))) 
E)) 
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6 CONCLUS TON 


Nous avons pu présenter l'implémentation du noyau du système VLISP grâce à 
l'utilisation extensive de la méthode de description par filtrage. Cette 
présentation vise à un double but : lever une certaine confusion concernant 
le problème de la standardisation de LISP, et établir une méthode de spécification 
de LISP suffisamment précise pour pouvoir décrire adéquatement une implémentation 
particuliére, et suffisamment générale pour pouvoir également rendre compte 
: sans difficuité des langages dérivés de LISP dans lesquels sont introduites de 
nouvelles structures de données et des structures de contróle incompatibles 
. avec la structure récursive de LISP. 
La préoccupaticn de standardisation de LISP vise 4 permettre une relative aisance 
dans le transport de programmes. Nous pensons que cette préoccupation est en 
porte 4 faux au regard des raisoris réelles de la diversité des systémes LISP : 
la plupart des utilisateurs de LISP en sont @galement des implémenteurs. 
Ainsi ce dont nous avons besoin, ce n'est pas d'une unification de la structure 
externe de LISP, structure essentiellement plastique et malléable, mais tout au 
contraire nous avons besoin d'une standardisation de ses méthodes d'implémentation. 
Nous avons tenté d'en livrer une spécification précise et générale dans un 
langage adéquat. 
La notation par filtrage a l'avantege de rendre les structures de contrôle et les 
structures de uonnées LISP visibles, et de les rassembler dans une description 
unifiée. Notre unité de description, le filtrage 4 double continuation, est proche 
de la structure des acteurs (HEWITT 1975), toutefois le langage de spécification 
PLASMA qui en est issu nous paraît un langage de description d'intentions de 
programmes interprétés, et non pas un langage adéquat de spécification d'inter- 
prétes. -e 
En nous restreignant volontairement au noyau de l'interprète, nous n'avons pas 
évoqué ici les solutions particulières que nous avons adopté, en ce qui concerne 
VLISP T1600, pour des problémes tels que la gestion des différents espaces de 
mémoire réeile ou virtuelle. Nous n'avons pas non plus décrit les différents 
éléments de l'environnement naturel de cette implémentation : Prettyprint, traces, 
assembleur LAP, compilateur, indexeur de fonctions. Nous pensons que ces questions 
ne relévent pas d'une standardisation mais appellent au contraire des solutions 
spécifiques à des implémentations particuliéres. 
De méme, pour permettre la description des langages dérivés de LISP, la technique 
du filtrage nous a permis de ne pas faire d'hypothéses trop spécifiques concernant 
l'implémentation de la zone de contrôle, contrairement à (BOBROW 1973). Ainsi, 
l'extension de la gestion de la zone de contrôle à des modes non récursifs : 
coroutines, backtracking, structures "4 la CONNIVER", est quasi-immédiate. 
Enfin, la description par filtrage nous paraît une représentation très fidèle 
des objets mis en jeu dans l'activité concrète du programmeur, en particulier en 
ce qui concerne les structures de données : un filtrage étant simultanément la 
représentation d'une structure de données et la spécification d'un processus. 
Il n'est pas surprenant que ce soit dans le contexte de LISP que la nécessité de 
cette unification apparaisse avec le plus de netteté. 
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